U10K5=/[W6K1<20H]
U36K5=[W6K1<20H]
W20K0=MUX(1,0),(I0K2,U10K0)
W20K1=MUX(2,0),(I0K2,U10K0)
DOF:I4K17
W18K1=LOW(W2K2)
W18K1=XCH(W18K1)
W18K2=HIG(W2K2)
ENDF
U10K27=I3N1
DOF:I4K20
W19K0=W1K0
W19K1=W1K1
W19K2=W1K2
ENDF
 
                        ; 
;
                        ;맮  #7
P5=U10K0*/I0K1+I8K27+I8K28+I8K29+I8K30
;W16K3=MUX(27H,0,0),(P5,U10K0,I0K2)
;-------------------------------------------------
$                       ; 
;  W17K3     21,22
DOF:/U252K8
W17K3=MUX(1,2,0),(I0K26,T6U,I0K1)
ENDF
;
                        ;㬥 ४
; 6 M06=02,14,FF
U101K0=[W3K0=6]+U101K0*/I0K27*/I0K1
U102K0=[W29K0=6]+U102K0*/I26K27*/I26K1
;AGTOL
U10K21=[W3K0=6]+U10K21*/I0K27*/I0K1
U36K21=[W29K0=6]+U36K21*/I26K27*/I26K1
;
                        ;
;HLDR 
U10K2=I0K26+T6U+U10K2*/I0K1
;
                        ;
;GAMMA1
U11K16=U10K0+I0K2
U37K16=U36K0+I26K2
; 3
U111K3=[W3K0=3]+U111K3*/[W3K0=4]*/[W3K0=5]*/[W3K0=19H]*/I0K1*[W6K1<20H]
U112K3=[W29K0=3]+U112K3*/[W29K0=4]*/[W29K0=5]*/[W29K0=19H]*/I26K1*/[W6K1<20H]
; 4
U111K4=[W3K0=4]+U111K4*/[W3K0=3]*/[W3K0=5]*/[W3K0=19H]*/I0K1*[W6K1<20H]
U112K4=[W29K0=4]+U112K4*/[W29K0=3]*/[W29K0=5]*/[W29K0=19H]*/I26K1*/[W6K1<20H]
;ROMAO
U11K3=U111K3
U37K3=U112K3
;ROMAA
U11K4=U111K4
U37K4=U112K4
;M19
U37K0=[W29K0=19H]+U37K0*/T5U*/T6U*/I26K1
T5I(10)=U37K0*I26K25
T6I(30)=U37K0*/I26K25
                        ;
T0I(7)=/T1D
T1I(7)=/T0D
;
                        ;ࠢ  SPEPN
C0I(2)=I2N0*I6K21
C0Z=/I6K21
;
;ASPEPEN
U10K20=[C0W=1]
                        ; 
;MUSPE
U10K0=/U10K20
U36K0=/U10K20
;
                        ; 饣 
;RABI
;W10K1=MUX(7,0),(I0K2,U10K0)
U10K8=I0K2*[W6K1<20H]
U10K9=I0K2*[W6K1<20H]
U10K10=I0K2*[W6K1<20H]
U36K8=I26K2*/[W6K1<20H]
U36K9=I26K2*/[W6K1<20H]
;
                        ;襭 
;COMU
U10K24=[W0K1=7]*I0K2
U36K24=[W26K1=3]*I26K2
;
                        ;襭 M,S,T,᭠ 
;CEFA
U10K25=I0K2
U36K25=I26K2
;
                        ;ࠢ ஢ ⮢ ஢ 
;CEFAB
U10K26=/U101K0*/[W3K0=30H]
U36K26=/U102K0*/[W29K0=30H]
;                                PULT
;
;
;RESET 騩 
   U10K1=I2N7
   U36K1=I2N7
;
                        ;Indication off status Machine
;F1
U100K0=U10K0*T0D
DOF MTOFF :U10K0
   W11N0=MUX(2,1),(U100K0,U10K0)
ENDF MTOFF
DOE MTON :I0K2
   W11N0=3
ENDE MTON
;
;Off switch JOG
W15K0=MUX(8),(I0K2)
                ;**************************************
                        ;MDI, AUTO, STEP
                ;**************************************
DOF  BLOCK: I8K24+I8K25+I8K26
;F2
   U100K13=/I0N10
   W11N1=MUX(1,27,28),(U10K0,U100K13,I0N10)
;F3
   W11N2=1
;F4
   DOF:U10K0
         W11N3=1
   ENDF
   DOE:[C3W=0]
         W11N3=4
   ENDE
   DOE:[C3W=1]
         W11N3=5
   ENDE
;F5
   DOF:U10K0
         W12N0=1
   ENDF
   DOE:[C4W=0]
         W12N0=7
   ENDE
   DOE:[C4W=1]
         W12N0=6
   ENDE
;F6
   W12N1=1
;F7
   W12N2=25
;F8
   W12N3=26
;
                        ;STATUS of PROCESS
;Spindle Clamp/Unclamp
   DOF:U10K0
         W13N0=0
   ENDF
   DOE:[C3W=0]
         W13N0=50
   ENDE
   DOE:[C3W=1]
         W13N0=49
   ENDE
;Cooling (ON/OFF)
   DOF:U10K0
         W13N1=0
   ENDF
   DOE:[C4W=0]
         W13N1=53
   ENDE
   DOE:[C4W=1]
         W13N1=54
   ENDE
;M01 (ON/OFF)
   DOF:U10K0
         W13N2=0
   ENDF
   DOE:[C5W=0]
         W13N2=156
   ENDE
   DOE:[C5W=1]
         W13N2=157
   ENDE
   W13N3=0
   W14N0=0
   W14N1=0
   W14N2=0
   W14N3=0
;Spindle Clamp/Unclamp
   C3I(2)=I2N3*/I0K7*I0K2
   ;U4A=/[C3W]
;Cooling Turn (ON/OFF)
   C4I(2)=I2N4*I0K2+[W3K0=8]*[C4W=0]
   C4Z=[W3K0=9]
   ;U4A=/[C4W]
;Support M01 Turn (ON/OFF)
   C5I(2)=I2N1*I0K2
;Support M01 USO
   P1=[C5W=1]
   P2=[C5W=0]
;
;Command (USO=1)
   DOF:P1
;Number first connector
        W17K0=23
;(U)SO=1
        W23K0=85
;U(S)O=1
        W23K1=83
;US(O)=1
        W23K2=79
;USO(=)1
        W23K3=61
;USO=(1)
        W24K0=49
;LF
        W24K1=10
   ENDF
;
;Command (USO=0)
   DOF:P2
;Number first connector
        W17K0=23
;(U)SO=0
        W23K0=85
;U(S)O=0
        W23K1=83
;US(O)=0
        W23K2=79
;USO(=)0
        W23K3=61
;USO=(0)
        W24K0=48
;LF
        W24K1=10
   ENDF
;
;Program Unload. Command (REL)
   P0=I2N6
   DOF:P0
;Number first connector
        W17K0=23
;(R)EL
        W23K0=82
;R(E)L
        W23K1=69
;RE(L)
        W23K2=76
;LF
        W23K3=10
   ENDF
;Start Command REL, USO=1, US0=0
;SPGCOM
   U10K18=P0+P1+P2+U10K18*/I5K30*/I5K31*/I0K1
;CMDLOG
   U10K19=P0+P1+P2+U10K19*/I5K30*/I5K31*/I0K1
ENDF BLOCK
            ;**********************************************
                        ;MANU, MANJ, PROF, HOME
            ;**********************************************
;COMMON FOR MANU, MANJ, PROF, HOME
DOF MANCOM: (I8K27+I8K28+I8K29+I8K30)*I0K2
;
;Manual Speed 
;   U100K8=([W15K3=1]+[W15K3=129])*T0D
;   U100K9=([W15K3=5]+[W15K3=133])*T0D
;   U100K10=([W15K3=10]+[W15K3=138])*T0D
;   U100K11=([W15K3=50]+[W15K3=178])*T0D
;   U100K12=([W15K3=100]+[W15K3=228])*T0D
;Menu
;F2
   W11N1=1
;F3
   W11N2=1
;F4
   W11N3=1
;F5
   W12N0=1
;F6 Choice of Speed
;   P3=I2N5
;   C2I(6)=P3
;   W100K3=DEC(C2W)
;   U100K31=[C2W=0]
;   W15K3=MUX(100,1,5,10,50,100,0),(I2N12,U100K24,U100K25,U100K26,U100K27,U100K28,U100K31)
;W102K0=W1N0*7FH
;W15K3=MUX(100,W102K0,W102K0),(I2N12,I0K2,U10K0)
;RUN
   U10K4=U15K16+U15K17+U15K18
ENDF MANCOM
W102K0=W1N0*7FH
W15K3=MUX(100,W102K0,W102K0),(I2N12,I0K2,U10K0)
;
;ONLY FOR MANU and PROF
DOF MANU: (I8K27+I8K29)*I0K2
;F6 Choice of Speed
;   W12N1=MUX(10,11,12,13,14,9),(U100K24,U100K25,U100K26,U100K27,U100K28,U100K31)
   W12N1=0
;F7
   W12N2=1
;F8 RESET
   W12N3=26
;STATUS indication
;MOTION AXIS
;X+
   W13N0=MUX(23,21),(I2N10,I0K4)
;X-
   W13N1=MUX(24,22),(I2N11,I0K4)
;Y+
   W13N2=MUX(27,25),(I2N13,I0K4)
;Y-
   W13N3=MUX(28,26),(I2N14,I0K4)
;Z+
   W14N0=MUX(31,29),(I2N8,I0K4)
;Z-
   W14N1=MUX(32,30),(I2N9,I0K4)
   U100K1=I2N12*T0D
;Speed 100
   W14N2=MUX(0,171,171,171),(U100K1,I2N12,I0K2,U10K0)
;
;Set Mode
   W15K0=49H
;
;Choice of Axis
   U15K16=I2N10+I2N11
   U15K17=I2N14+I2N13
   U15K18=I2N8+I2N9
;Choice of Direct
   U15K31=I2N9+I2N11+I2N14
ENDF MANU
;
DOF MANJ: I8K28*I0K2
;F6 Choice of Speed
;   W12N1=MUX(10,11,12,13,14,9),(U100K24,U100K25,U100K26,U100K27,U100K28,U100K31)
    W12N1=0
;F7 Choice of JOG
   W12N2=MUX(15,16,17,18,19,20,8),(U16K16,U16K17,U16K18,U16K19,U16K20,U16K21,U16K22)
;F8 RESET
   W12N3=26
;STATUS indication
;MOTION AXIS
;X+
   W13N0=MUX(23,21),(I2N10,I0K4)
;X-
   W13N1=MUX(24,22),(I2N11,I0K4)
;Y+
   W13N2=MUX(27,25),(I2N13,I0K4)
;Y-
   W13N3=MUX(28,26),(I2N14,I0K4)
;Z+
   W14N0=MUX(31,29),(I2N8,I0K4)
;Z-
   W14N1=MUX(32,30),(I2N9,I0K4)
   U100K1=I2N12*T0D
;Speed 100
   W14N2=MUX(0,171,171,171),(U100K1,I2N12,I0K2,U10K0)
;
;Set Mode
   W15K0=0C9H
;
;Choice of JOG (0.001, 0.01, 0.1, 1., 10., 100 mm)
   P4=I2N6
   C1I(7)=P4
   W100K2=DEC(C1W)
   U100K22=[C1W=0]
   W16K2=W100K2
;
;Choice of Axis
   U15K16=I2N10+I2N11
   U15K17=I2N14+I2N13
   U15K18=I2N8+I2N9
;
;Choice of Direct
   U15K31=I2N9+I2N11+I2N14
ENDF MANJ
;
DOF HOME: I8K30*I0K2
;F2
   W11N1=29
;F6 Choice of speed
;   W12N1=MUX(10,11,12,13,14,9),(U100K24,U100K25,U100K26,U100K27,U100K28,U100K31)
   W12N1=0
   W12N2=1
;F8 RESET
   W12N3=26
;STATUS indication
;X
   W13N0=165
;Y
   W13N1=166
;Z
   W13N2=167
   W13N3=0
   W14N0=0
   W14N1=0
   W14N2=0
   W14N3=0
;
;Set Mode
   W15K0=49H
;楢
   U202K0=/I2N1
;
;Choice of Axis
   U15K16=I2N10+I2N11
   U15K17=I2N14+I2N13
   U15K18=I2N8+I2N9
ENDF HOME
;
DOF RESET: I8K31+[W8K3=8FH]*/I0K2
   W11N1=1
   W11N2=1
   W11N3=1
   W12N0=1
   W12N1=1
   W12N2=1
;   DOF:[W8K3=7]
;   W12N2=25
;   ENDF
;F8 RESET
   W12N3=26
;
;   W13N0=0
;   W13N1=0
;   W13N2=0
;   W13N3=0
;   W14N0=0
;   W14N1=0
;   W14N2=0
;   W14N3=0
   W15K0=8
;RUN OFF
   U10K4=U255K31
ENDF RESET
;=====================================================================
; ,   21,22,   
;    W17K3.

;!  ࠢ  W17K3 = ....    ६ ப⪨ 
;            ᪫祭, ਬ:
;                   DOF:/U252K8
;                       W17K3=....
;                   ENDF

;       :
;         ASCII-: VIEWMSG + F5(  )

; :
;         ASCII-: VIEWOFF + F5(  )

;ᨣ U252K8   ணࠬ - ਧ ப⪨
U252K8="VIEWMSG"+U252K8*/"VIEWOFF"
DOF VIEWMSG: U252K8+"VIEWOFF"
             U252K9=[W17K3=0]*U252K8
;㧠  㫥묨 ᮮ饭ﬨ  ப⪥ = 0.01 (T50I)
             T50I(1)=U252K9*/T50U*/"VIEWOFF"
;⥫쭮 뢮 ᮮ饭  ࠭  ப⪥ = 2c (T51I)
             T51I(200)=U252K8*/T51U
;稪 ப⪨ ᮮ饭    21  22
             C32I(9)=T50U+T51U
             W252K0=DEC(C32W)
             DOF:C32R
                 C32W=1
             ENDF
;稪 ப⪨ 8- ⮢  W21K0  W22K3
    C33I(8)=C32R
;                       ப⪠ ᮮ饭  W21K0
    DOF:[C33W=0]
        W252K2=W21K0*W252K0
        DOF:[W252K2>0]
            W17K3=[ENC(W252K2)+0]
        ENDF
        DOE:
        W17K3=0
        ENDE
    ENDF
;                       ப⪠ ᮮ饭  W21K1
    DOF:[C33W=1]
        W252K2=W21K1*W252K0
        DOF:[W252K2>0]
            W17K3=[ENC(W252K2)+8]
        ENDF
        DOE:
            W17K3=0
        ENDE
    ENDF
;                       ப⪠ ᮮ饭  W21K2
    DOF:[C33W=2]
        W252K2=W21K2*W252K0
        DOF:[W252K2>0]
            W17K3=[ENC(W252K2)+16]
        ENDF
        DOE:
            W17K3=0
        ENDE
    ENDF
;                       ப⪠ ᮮ饭  W21K3
    DOF:[C33W=3]
        W252K2=W21K3*W252K0
        DOF:[W252K2>0]
            W17K3=[ENC(W252K2)+24]
        ENDF
        DOE:
            W17K3=0
        ENDE
    ENDF
;                       ப⪠ ᮮ饭  W22K0
    DOF:[C33W=4]
        W252K2=W22K0*W252K0
        DOF:[W252K2>0]
            W17K3=[ENC(W252K2)+32]
        ENDF
        DOE:
            W17K3=0
        ENDE
    ENDF
;                       ப⪠ ᮮ饭  W22K1
    DOF:[C33W=5]
        W252K2=W22K1*W252K0
        DOF:[W252K2>0]
            W17K3=[ENC(W252K2)+40]
        ENDF
        DOE:
            W17K3=0
        ENDE
    ENDF
;                       ப⪠ ᮮ饭  W22K2
    DOF:[C33W=6]
        W252K2=W22K2*W252K0
        DOF:[W252K2>0]
            W17K3=[ENC(W252K2)+48]
        ENDF
        DOE:
            W17K3=0
        ENDE
    ENDF
;                       ப⪠ ᮮ饭  W22K3
    DOF:[C33W=7]
        W252K2=W22K3*W252K0
        DOF:[W252K2>0]
            W17K3=[ENC(W252K2)+56]
        ENDF
        DOE:
            W17K3=0
        ENDE
    ENDF
ENDF VIEWMSG
;=====================================================================
